unit MainA;

interface

uses
  Winapi.Windows, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, libBasic_CustomA, uniImage,
  uniGUIClasses, uniPanel, uniGUIBaseClasses, uniLabel;

type
  TfrMain = class(TfrBasic_Custom)
    UniLabel2: TUniLabel;
    UniContainerPanel1: TUniContainerPanel;
    UniImage1: TUniImage;
    UniImage2: TUniImage;
  private
    { Private declarations }
  public
    constructor Create(AOwner: TComponent);override;
  end;


implementation

uses
  ServerModule;

{$R *.dfm}

{ TfrMain }

constructor TfrMain.Create(AOwner: TComponent);
begin
  inherited;
  UniLabel2.Caption := 'Powered by Ocean UI 2020';
//  UniLabel2.Caption := 'Powered by Ocean UI ' + UniServerModule.UniGUIVersion +
//                        ' &&  Ext JS ' + UniServerModule.ExtJSVersion;
  UniImage1.Picture.LoadFromFile(UniServerModule.StartPath + 'images\uni.jpg');
//  UniImage2.Picture.LoadFromFile(UniServerModule.StartPath + 'images\unigui.png');
end;


initialization
  RegisterClass(TfrMain);
finalization
  UnRegisterClass(TfrMain);
end.
